home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
TGCBOR20.ARJ
/
INTROPAK.COM
/
TSTPICK3.C
< prev
next >
Wrap
Text File
|
1991-04-06
|
4KB
|
121 lines
#include "teglsys.h"
#include "stdlib.h"
char pickeditem[255];
unsigned exitoption(imagestkptr fs,msclickptr ms)
{
abortexit(pickeditem);
return 1;
}
unsigned droppicklist(imagestkptr fs,unsigned userkey,void *dataarea)
{
optionmptr picklist = (optionmptr) dataarea;
dropoptionmenu(picklist);
return 0;
}
unsigned randomnum(unsigned n)
{
if (n) n=rand()%n;
return n;
}
unsigned dropitems(imagestkptr fs,msclickptr ms)
{
optionmptr picklist;
getuserdataarea(fs,222,&picklist);
detachpicklist(picklist);
deletepickitem(picklist,randomnum(picklist->numofentries)+1);
deletepickitem(picklist,randomnum(picklist->numofentries)+1);
deletepickitem(picklist,randomnum(picklist->numofentries)+1);
deletepickitem(picklist,randomnum(picklist->numofentries)+1);
attachpicklist(picklist,picklist->selectedoenum);
getuserdataarea(fs,223,&picklist);
detachpicklist(picklist);
deletepickitem(picklist,randomnum(picklist->numofentries)+1);
deletepickitem(picklist,randomnum(picklist->numofentries)+1);
attachpicklist(picklist,picklist->selectedoenum);
beep(500,4,50);
return 1;
}
unsigned additems(imagestkptr fs,msclickptr ms)
{
optionmptr picklist;
getuserdataarea(fs,222,&picklist);
detachpicklist(picklist);
insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item one on list",additems,pickeditem);
insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item two on list",dropitems,pickeditem);
insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item three on list",additems,pickeditem);
insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item four on list",dropitems,pickeditem);
insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item five on list",additems,pickeditem);
insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item six on list",dropitems,pickeditem);
insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item seven on list",additems,pickeditem);
attachpicklist(picklist,picklist->selectedoenum);
getuserdataarea(fs,223,&picklist);
detachpicklist(picklist);
insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item one on list",additems,pickeditem);
insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item two on list",dropitems,pickeditem);
insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item three on list",additems,pickeditem);
insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item four on list",dropitems,pickeditem);
insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item five on list",additems,pickeditem);
insertpickitem(picklist,randomnum(picklist->numofentries)+1,"item six on list",dropitems,pickeditem);
attachpicklist(picklist,picklist->selectedoenum);
beep(500,4,50);
return 1;
}
void testpicklist(void)
{
unsigned x,y,x1,y1;
optionmptr picklist1;
optionmptr picklist2;
x = 100;
y = 100;
x1 = x+200;
y1 = y+200;
pushimage(x,y,x1,y1);
shadowbox(x,y,x1,y1);
picklist1 = createpicklist(font14);
definepickitem(picklist1,"item one on list",additems,pickeditem);
definepickitem(picklist1,"item two on list",additems,pickeditem);
setuserdataarea(stackptr,222,picklist1,droppicklist);
definepicklistarea(stackptr,10,10,3,5,picklist1);
picklist2 = createpicklist(roman25);
definepickitem(picklist2,"item one on list",additems,pickeditem);
definepickitem(picklist2,"item two on list",additems,pickeditem);
setuserdataarea(stackptr,223,picklist2,droppicklist);
definepicklistarea(stackptr,10,picklist1->y1+10,3,1,picklist2);
}
void main()
{
easytegl();
easyout();
testpicklist();
teglsupervisor();
}